! name: ajt06
! type: ArchiCAD Door File
! ***** 3D script *****

mat1 = c
mat2 = d

R=(0.055*0.055+(a/2-0.12)*(a/2-0.12))/0.11

resol 120

prism_   16, 0.045, 
    -a/2, 0, 15,
     a/2, 0, 15,
     a/2, b, 15,
    -a/2, b, 15,
    -a/2, 0, -1,

    -a/2+0.12, 0.16, 15,
     a/2-0.12, 0.16, 15,
     a/2-0.12, 0.665, 15,
    -a/2+0.12, 0.665, 15,
    -a/2+0.12, 0.16, -1,

    
    -a/2+0.12, 0.785, 15,
     a/2-0.12, 0.785, 15,
     a/2-0.12, b-0.175, 79,
     0, b-0.12-R, 900,
     -a/2+0.12, b-0.175, 3015,
     -a/2+0.12, 0.785, -1


addz -0.005

prism_ 10, 0.055,
    -a/2+0.12, 0.16, 15,
     a/2-0.12, 0.16, 15,
     a/2-0.12, 0.665, 15,
    -a/2+0.12, 0.665, 15,
    -a/2+0.12, 0.16, -1,
    
    -a/2+0.135, 0.175, 15,
     a/2-0.135, 0.175, 15,
     a/2-0.135, 0.65, 15,
    -a/2+0.135, 0.65, 15,
    -a/2+0.135, 0.175, -1


R1=R-0.015

prism_ 12, 0.055,
    -a/2+0.12, 0.785, 15,
     a/2-0.12, 0.785, 15,
     a/2-0.12, b-0.175, 79,
     0, b-0.12-R, 900,
     -a/2+0.12, b-0.175, 3015,
     -a/2+0.12, 0.785, -1,

    -a/2+0.135, 0.8, 15,
     a/2-0.135, 0.8, 15,
     a/2-0.135, b-0.12-R+(R1*cos(ASN((a/2-0.135)/R1))), 79,
     0, b-0.12-R, 900,
    -a/2+0.135,b-0.12-R+(R1*cos(ASN((a/2-0.135)/R1))), 3015,
    -a/2+0.135, 0.8, -1


addz 0.0225

 prism_ 10, 0.02,

    -a/2+0.135, 0.175, 15,
     a/2-0.135, 0.175, 15,
     a/2-0.135, 0.65, 15,
    -a/2+0.135, 0.65, 15,
    -a/2+0.135, 0.175, -1,


    -a/2+0.17, 0.21, 15,
     a/2-0.17, 0.21, 15,
     a/2-0.17, 0.615, 15,
    -a/2+0.17, 0.615, 15,
    -a/2+0.17, 0.21, -1

R2=R1-0.035

prism_ 12, 0.02,


    -a/2+0.135, 0.8, 15,
     a/2-0.135, 0.8, 15,
     a/2-0.135, b-0.12-R+(R1*cos(ASN((a/2-0.135)/R1))), 79,
     0, b-0.12-R, 900,
    -a/2+0.135,b-0.12-R+(R1*cos(ASN((a/2-0.135)/R1))), 3015,
    -a/2+0.135, 0.8, -1,

    -a/2+0.17, 0.835, 15,
     a/2-0.17, 0.835, 15,
     a/2-0.17, b-0.12-R+(R2*cos(ASN((a/2-0.17)/R2))), 79,
     0, b-0.12-R, 900,
    -a/2+0.17,b-0.12-R+(R2*cos(ASN((a/2-0.17)/R2))), 3015,
    -a/2+0.17, 0.835, -1

addz -0.0125

prism_   4, 0.045,

    -a/2+0.17, 0.21, 15,
     a/2-0.17, 0.21, 15,
     a/2-0.17, 0.615, 15,
    -a/2+0.17, 0.615, 15

prism_   6, 0.045,

    -a/2+0.17, 0.835, 15,
     a/2-0.17, 0.835, 15,
     a/2-0.17, b-0.12-R+(R2*cos(ASN((a/2-0.17)/R2))), 79,
     0, b-0.12-R, 900,
    -a/2+0.17,b-0.12-R+(R2*cos(ASN((a/2-0.17)/R2))), 3015,
    -a/2+0.17, 0.835, -1

del 3
addz 0.045
addy 0.95
addx -a/2+0.06

call "handle_1" mat2

addz -0.045
mulz -1

call "handle_1" mat2
